home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / sbbs116b.zip / STRUCT.116 < prev    next >
Text File  |  1992-05-20  |  38KB  |  969 lines
  1. Type
  2.   MsgToIdxRecord = String[35];
  3.   FlagType = Array[1..4] of Byte;
  4.   Msgtxtrecord = String[255];
  5.   Lastreadrecord = Array[1..200] of integer;
  6.  
  7.   LineIdxRec = Record                                 (* SUSERON.BBS *)
  8.                  User:                  MsgToIdxRecord;
  9.                  Attribute,
  10.                  Status:                Byte;
  11.                  Baud:                  Word;
  12.                  City:                  String[25];
  13.                  Infobyte:              byte;
  14.                  ExtraSpace:            Array[1..9] of byte;
  15.                End;
  16.  
  17. (*  Attribute :
  18.  
  19.      Bit 0 = Line in use
  20.          1 = Do not disturb mode
  21.          2 = waiting for call
  22.  
  23.     Status (Not bit-mapped) :
  24.  
  25.      Nr  0 = Doing nothing
  26.          1 = Downloading file(s)
  27.          2 = Uploading file(s)
  28.          3 = Reading messages
  29.          4 = Entering message (also onlinemsg)
  30.          5 = Chatting with SysOp
  31.          6 = Using external program, etc...
  32.          7 = Logging on
  33.          8 = using qwk system
  34.          9 = browsing filelist
  35.         10 = In node chat (conference number is in infobyte)
  36. *)
  37.  
  38.   NameIdxRec = Record                                 (* NAMEIDX.BBS *)
  39.                  NameCRC32:            LongInt;
  40.                  AliasCRC32:           LongInt;
  41.                  Attrib:               Byte;
  42.                End;
  43.  
  44.   BoxListRec = Record                                 (* BBSLIST.BBS  *)
  45.                  BBSName:              String[40];
  46.                  Sysopname:            MsgToIdxRecord;
  47.                  Number:               String[15];
  48.                  Baud:                 Word;
  49.                  OpenTimes:            String[11];
  50.                  Net:                  String[15];
  51.                  BBSSoft:              String[10];
  52.                  Other:                String[60];
  53.                  ExtraSpace:           Array[1..150] of byte;
  54.                End;
  55.  
  56.   FLSearchRec  = Record                               (* FLSEARCH.BBS *)
  57.                    Name:               String[60];
  58.                    Directory:          String[79];
  59.                    Security:           Integer;          
  60.                    Flags:              Flagtype;
  61.                    PFilesSec:          Integer;   { Not yet used }
  62.                    PFlags:             Flagtype;  { Not yet used }
  63.                    Attrib:             Byte;
  64.                    Age:                Byte;
  65.                    ListName:           String[67];    (* If begins with *
  66.                                                          character then the
  67.                                                          rest of the string
  68.                                                          shows the upload
  69.                                                          path *)
  70.                    ExtraSpace:         Array[1..30] of Byte;
  71.                  End;
  72. (*  Attrib:
  73.  
  74.       Bit 0  : Exclude from template
  75.       Bit 1  : No downloads  { Used in template system only }
  76.       Bit 2  : No uploads    { Used in template system only }
  77.       Bit 3  : No virus check
  78.       Bit 4  : No dupe scan
  79.       Bit 5  : No new files check
  80.       Bit 6-7: Unused
  81.  
  82. *)
  83.  
  84.   DoorRec = record
  85.               Name:       String[35];                 (* DOORCFG.BBS *)
  86.               CmdLine:    String[127];
  87.               Security:   Word;
  88.               Flags:      Flagtype;
  89.               StartTime,
  90.               EndTime:    String[5];
  91.               Active:     Boolean;
  92.               ExtraSpace: Array[1..30] of Byte;
  93.             End;
  94.  
  95.  
  96.   CommentRecord = Record                              (* COMMENT.BBS  *)
  97.                     Txt      : Array[1..2] of String[76];
  98.                     FromName : MsgToIdxRecord;
  99.                     FromCity : String[25];
  100.                     PostTime : String[5];
  101.                     PostDate : String[8];
  102.                   End;
  103.  
  104.   LastCallerRec = Record                              (* SCALLERS.BBS *)
  105.                     Name:              MsgToIdxRecord;
  106.                     City:              String[25];
  107.                     Line,
  108.                     Age:               Byte;
  109.                     Baud:              Word;
  110.                     LastDate:          String[8];
  111.                     LogOn,
  112.                     LogOff:            String[5];
  113.                   End;
  114.  
  115.   ExtraConfig = Record                                 (* SCONFIG.BBS *)
  116.                    SystemPath,
  117.                    MsgBasePath,
  118.                    TempPath:            String[66];
  119.                    RedirectDevice:      String[12];
  120.                    Resp19200,
  121.                    Resp38400:           String[40];
  122.                    ShowSecurity:        Boolean;
  123.                    ShowPswdAtLogon:     Boolean;
  124.                    BetaCode:            Longint;
  125.                    Unused:              Array[1..200] of boolean;
  126.                    Empty1:              Array[1..284] of byte;
  127.                    AllowCat:            Boolean;
  128.                    Answerboard:         Byte;
  129.                    Use7bitChars:        Boolean;
  130.                    BufferSize:          Word;
  131.                    Empty2:              Array[1..45] of byte;
  132.                    EntryColor:          Byte;
  133.                    FilesBeforeRatio:    Byte;
  134.                    MinSpace:            Word;
  135.                    ClearTemp:           Boolean;
  136.                    Empty3:              Array[1..163] of byte;
  137.                    UseAliasSystem:      Boolean;
  138.                    Ansilogon:           Byte; {0 = No,1 = Yes,2 = Auto detect}
  139.                    ExcludeSysOp:        Boolean;
  140.                    Empty4:              Array[1..122] of byte;
  141.                    AltFkeys:            Array[1..10] of string[60];
  142.                    Checkfiles:          Boolean;
  143.                    PasswordBoard:       Byte;
  144.                    Alt_J_Swaptoems:     Boolean;
  145.                    MaxTimeInBank:       Word;
  146.                    NoBirthDayAsk:       Boolean;
  147.                    MaxDescLines:        Byte;
  148.                    Empty5:              Array[1..45] of byte;
  149.                    FastMailCheck:       Boolean;
  150.                    DefaultColors:       Array[1..10] of byte;
  151.                    Empty6:              Array[1..45] of byte;
  152.                    LinesInSystem:       Byte;
  153.                    CommonDir:           String[79];
  154.                    VersionNumber:       Word;
  155.                    FullScrChatBaud:     Word;
  156.                    PressEnterColor:     Byte;
  157.                    AreaSelectColor:     Array[1..3] of byte;
  158.                    StatusLineColor:     Byte;
  159.                    VirusChkMode:        Byte;
  160.                    WorkPath:            String[79];
  161.                    WatchCDatDos:        Boolean;
  162.                    UseCtrlX:            Boolean;
  163.                    MsgAfterPageBoard:   Byte;
  164.                    SearchAliases:       Boolean;
  165.                    EchoConvert:         Boolean;
  166.                    SwapAtPackers:       Boolean;
  167.                    InternalProtocols:   Byte;
  168.                    { bit 0 : Zmodem
  169.                      bit 1 : Ymodem batch
  170.                      bit 2 : Xmodem
  171.                      bit 3 : Xmodem 1K (Ymodem)
  172.                      bit 4 : Xmodem 1K G
  173.                      bit 5 : Ymodem-g }
  174.                    FirstMenuInSystem:   String[8];
  175.                    ColoredQuoteText:    Boolean;
  176.                    AddUploadersName:    Boolean;
  177.                    DaysUntilExpiration: Word;
  178.                    QWKBBSID:            String[6];
  179.                    QWKDefaultBoard:     Byte;
  180.                    QwkMaxNrToPack:      Integer;
  181.                    StatuslineStr:       Array[1..2] of string[100];
  182.                    Location:            String[40];
  183.                    UsPhoneNrFormat:     Boolean;
  184.                    DlCounterLBracket,
  185.                    DlCounterRBracket:   Char;
  186.                    QWKAllowTagLines:    Byte; {0=no, 1=yes, 2=only local areas}
  187.                    LogonSecLvl:          Word;
  188.                    LogonAge:          Byte;
  189.                    LogonPassword:       String[15];
  190.                    NoGroupMailCheck,
  191.                    NoUserListIntype27:  Boolean;
  192.                    GroupMsgSecLvl:      Word;
  193.                    AskSex:              Boolean;
  194.                    AskAnsi,                   {0=ask, 1=yes, 2=no}
  195.                    AskMailCheck,              {0=ask, 1=yes, 2=no}
  196.                    AskNewFilesCheck,          {0=ask, 1=yes, 2=no}
  197.                    AskFullScrEditor,          {0=ask, 1=yes, 2=no}
  198.                    AskFullScrViewer,          {0=ask, 1=yes, 2=no}
  199.                    AskPagePause,              {0=ask, 1=yes, 2=no}
  200.                    AskScreenClears:     Byte; {0=ask, 1=yes, 2=no}
  201.                    PageStart:           Array[0..6] of string[5];
  202.                    PageEnd:             Array[0..6] of string[5];
  203.                    UseIEMSI:            Boolean;
  204.                    CapitalizeCity,
  205.                    CapitalizeAlias:     Boolean;
  206.                    VirusScannerCmd:     string[127];
  207.                    NoExtractBeforeScan: Boolean;
  208.                    VirusFoundErrorLvl:  Byte;
  209.                    SysOpsFscrChatClr,
  210.                    UsersFscrChatClr:    Byte;
  211.                    ScanForDupePhones:   Byte; {0 = no, 1 = log entry,
  212.                                                2 = don't allow}
  213.                    NormalLongDesc:      Boolean;
  214.                    NodelistPath:        String[72];
  215.                    MinCrashMailSec:     Word;
  216.                    NoDorinfo1:          Boolean;
  217.                    NoTouch:             Boolean;
  218.                    ZoneMatching:        Boolean;
  219.                    strictdupecheck:     Boolean;
  220.                    noextendednodeinfo:  Boolean;
  221.                    Birthdayverify:      Boolean;
  222.                    realmsgnumbers:      boolean;
  223.                    LocalAttachPath:     String[66];
  224.                    NoLACheckAtLogon:    Boolean;
  225.                    AllowedPackers:      Byte;
  226.                      {Bit 0 : ZIP
  227.                       Bit 1 : ARC
  228.                       Bit 2 : LZH
  229.                       Bit 3 : ARJ}
  230.                    BoardsFileToCurDir:  Boolean;
  231.                    UnLockPwd:           String[15];
  232.                    Resp7200,
  233.                    Resp12000,
  234.                    Resp14400:           String[40];
  235.                    LineEditorQuote:     Byte; {0=intelligent, 1=normal, 2=no}
  236.                    SevenBitOnly:        Boolean;
  237.                    nofileflagging:      boolean;
  238.                    ReplyingToStr:       String[80];
  239.                    FreeFileTimeCheck:   Byte; {0 = NO, 1 = YES, 2 = EVENT}
  240.                    PageReasonToSubj:    Boolean;
  241.                    AgeGraphStartAge:    Byte;
  242.                    ETGCLocalAttrib,
  243.                    ETGCRemoteAttrib:    word;  {Not yet used}
  244.                      {BIT 0 : 320x200x16
  245.                       BIT 1 : 640x200x16
  246.                       BIT 2 : 640x350x16
  247.                       BIT 3 : 640x480x16
  248.                       BIT 4 : 320x200x256}
  249.                    AskCombinedBoards:   Boolean;
  250.                    AskCombMailCheck:    Byte; {0=ask, 1=yes, 2=no}
  251.                    UseNewFilesCheckDate:Boolean;
  252.                    BurnOutSecs:         Word;
  253.                    NoNamesInGroupMail:  Boolean;
  254.                    AutoChatCapture:     Boolean;
  255.                    AskDefProto:         Boolean;
  256.                    AskHotkeys:          Byte; {0=ask, 1=yes, 2=no}
  257.                    FreeAttaches:        Boolean;
  258.                    LogonFlags:          Flagtype;
  259.                    NoRemoteSysOp:       Boolean;
  260.                    FscrReaderColors:    Array[1..12] of byte;
  261.                    NewsDateCheck:       Boolean;
  262.                    NoNameIdx:           Boolean;
  263.                    AkaZone,
  264.                    AkaNet,
  265.                    AkaNode,
  266.                    AkaPoint:            Array[1..15] of integer;
  267.                    MinorVersionNumber:  Byte; {ie. 1 = Gamma-1, 2 = Gamma-2
  268.                                                100 = official}
  269.                    Extraspace:          Array[1..2709] of Byte;
  270.                  End;
  271.  
  272.  
  273.   Limitsrecord = Record                               (*  LIMITS.BBS  *)
  274.                    Security:           Word;
  275.                    Downlimit:          Array [1..7] of word;
  276.                    Timelimit:          Word;
  277.                    Ratiok:             Word;
  278.                    Ratio:              Word;
  279.                    Callsperday:        Byte;
  280.                    Description:        String[35];
  281.                    ExtraSpace:         Array [1..14] of byte;
  282.                  End;
  283.  
  284.   ExtraUserRec=Record                                 (*  SUSERS.BBS  *)
  285.                  Name:               MsgToIdxRecord;
  286.                  Birthday:           String[8];
  287.                  Attrib:             Word;
  288.                  Flags:              Array[1..4] of Byte; { Not yet used }
  289.                  Firsttime:          String[5];
  290.                  FirstDate:          String[8];
  291.                  CombinedBoards:     Array[1..25]  of Byte;
  292.                  SysOpComment:       String[79];
  293.                  DefaultProto:       Char;
  294.                  UserRecPtr:         Integer;
  295.                  Colors:             Array[1..10] of byte;
  296.                  FileListType:       Byte;                { Not yet used }
  297.                  Alias:              MsgToIdxRecord;
  298.                  MinutesUsed:        Longint;
  299.                  ViewFileName:       String[12]; { SeeAlso attrib bits 4 - 6 }
  300.                  MenuToRun:          String[8];
  301.                  Timeinbank:         Word;
  302.                  TodayCalls:         Byte;
  303.                  LanguageFileN:      String[8];  { *.LNG }
  304.                  Expirationdate:     String[8];
  305.                  CurrentFArea,
  306.                  CurrentMArea,
  307.                  CurrentDoor:        Byte;
  308.                  DefaultPacker:      Byte;
  309.                    {not bit mapped !
  310.                     1 = ZIP
  311.                     2 = ARC
  312.                     3 = LZH
  313.                     4 = ARJ}
  314.                  LastNewFilesCheck:  String[8];
  315.                  ExtraSpace:         Array[1..403] of Byte;
  316.                End;
  317.  
  318. (*  Attrib:
  319.  
  320. 1     Bit  0: MailCheck at logon
  321. 2     Bit  1: Newfiles Check at logon
  322. 4     Bit  2: No downloadratio
  323. 8     Bit  3: Female
  324. 16    Bit  4: Delete file after viewing
  325. 32    Bit  5: Display file only once
  326. 64    Bit  6: File viewed
  327. 128   Bit  7: Fullscreen viewer
  328. 256   Bit  8: Combined mail check
  329. 512   Bit  9: No hotkeys
  330.       Bit 10:
  331.       Bit 11:
  332.       Bit 12:
  333.       Bit 13:
  334.       Bit 14:
  335.       Bit 15:
  336. *)
  337.  
  338.   UserRecord = Record                                 (*  USERS.BBS   *)
  339.                  Name:               MsgToIdxRecord;
  340.                  City:               String[25];
  341.                  Password:           String[15];
  342.                  DataPhone,
  343.                  HomePhone:          String[12];
  344.                  LastTime:           String[5];
  345.                  LastDate:           String[8];
  346.                  Attrib:             Byte;
  347.                  Flags:              FlagType;
  348.                  Credit,
  349.                  Pending:            Integer;
  350.                  MsgsPosted,
  351.                  HighMsgRead,
  352.                  SecLvl,
  353.                  Times,
  354.                  Ups,
  355.                  Downs,
  356.                  UpK,
  357.                  DownK:              Word;
  358.                  TodayK:             Integer;
  359.                  Elapsed:            Integer;
  360.                  Len:                Integer;
  361.                  ExtraSpace1:        Array[1..2] of byte;
  362.                  Age:                Byte;
  363.                  ExtraUserrecPtr:    Integer;
  364.                  ExtraSpace2:        Array[1..3] of Byte;
  365.                End;
  366.  
  367. (*  Attrib:
  368.  
  369.       bit 0: Deleted user
  370.       bit 1: Screen clear codes
  371.       bit 2: More prompt
  372.       bit 3: ANSI graphics
  373.       bit 4: No-Kill
  374.       bit 5: Ignore Download Hours
  375.       bit 6: ANSI editor
  376.       bit 7: Do not disturb mode ON
  377.  
  378. *)
  379.  
  380.      InfoRecord = Record                              (* MSGINFO.BBS  *)
  381.                     LowMsg:      Integer;
  382.                     HighMsg:     Integer;
  383.                     TotalActive: Integer;
  384.  
  385.                     ActiveMsgs:  Array[1..200] of Integer;
  386.                   End;
  387.  
  388.       IdxRecord = Record                              (*  MSGIDX.BBS  *)
  389.                     MsgNum:       Integer;
  390.                     Board:        Byte;
  391.                   End;
  392.  
  393.           HdrRecord = Record                          (*  MSGHDR.BBS  *)
  394.                         MsgNum,
  395.                         ReplyTo,
  396.                         SeeAlsoNum,
  397.                         TimesRead:          Integer; { Not used }
  398.                         StartRec:           Word;
  399.                         NumRecs,
  400.                         DestNet,
  401.                         DestNode,
  402.                         OrigNet,
  403.                         OrigNode:           Integer;
  404.                         DestZone,
  405.                         OrigZone:           Byte;
  406.                         Cost:               Integer;
  407.                         MsgAttr,
  408.                         NetAttr,
  409.                         Board:              Byte;
  410.                         PostTime:           String[5];
  411.                         PostDate:           String[8];
  412.                         WhoTo,
  413.                         WhoFrom:            MsgToIdxRecord;
  414.                         Subj:               String[72];
  415.                       End;
  416.  
  417.  
  418. (* Msg Attributes:
  419.  
  420.       Bit 0: Deleted
  421.       Bit 1: Unsent net mail message
  422.       Bit 2: Net mail message
  423.       Bit 3: Private message
  424.       Bit 4: Received
  425.       Bit 5: Unsent echomail message
  426.       Bit 6: Local message
  427.       Bit 7: Not used
  428.  
  429.    Net Attributes:
  430.  
  431.       Bit 0: Kill after sent
  432.       Bit 1: Sent OK
  433.       Bit 2: File attach
  434.       Bit 3: Crash mail
  435.       Bit 4: Request Receipt
  436.       Bit 5: Audit Request
  437.       Bit 6: Is a Return Receipt
  438.       Bit 7: Not used
  439.  
  440. *)
  441.  
  442.  
  443.   SysInfoRecord = Record                              (* SYSINFO.BBS  *)
  444.                     CallCount:    LongInt;
  445.                     LastCaller:   MsgToIdxRecord;
  446.                     ExtraSpace:   Array[1..128] of Byte;
  447.                   End;
  448.  
  449.   TimeLogRecord = Record                              (* TIMELOG.BBS  *)
  450.                     StartDate:        String[8];
  451.                     BusyPerHour:      Array[0..23] of Integer;
  452.                     BusyPerDay:       Array[0..6] of Integer;
  453.                   End;
  454.      MenuRecord = Record                              (* ????????.MNU *)
  455.                     Typ:      Byte;
  456.                     Sec:      Integer;
  457.                     Flags:    FlagType;
  458.                     Str:      String[75];
  459.                     Key:      Char;
  460.                     Data:     String[80];
  461.                     Fg,
  462.                     Bg:       Byte;
  463.                   End;
  464.  
  465.       EventRecord = Record
  466.                       Status:       Byte; { 0=Disabled 1=Enabled }
  467.                       RunTime:      String[5];
  468.                       ErrorLevel:   Byte;
  469.                       Days:         Byte;
  470.                       Forced:       Boolean;
  471.                       LastTimeRun:  String[8];
  472.                     End;
  473.  
  474.       BoardRecord = Record
  475.                       Name:         String[16];
  476.                       Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  477.                       Kinds:        Byte; { 0=Private & Public
  478.                                             1=Private 2=Public 3=Read-Only }
  479.                       Combined:     Boolean;
  480.                       Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,3=Alias/name}
  481.  
  482.                       ReadSecLvl:   Integer;
  483.                       ReadFlags:    FlagType;
  484.  
  485.                       WriteSecLvl:  Integer;
  486.                       WriteFlags:   FlagType;
  487.  
  488.                       SysopSecLvl:  Integer;
  489.                       SysopFlags:   FlagType;
  490.                     End;
  491.  
  492.      ConfigRecord = Record                            (* CONFIG.BBS *)
  493.                       CommPort:      Integer;
  494.                       InitBaud,
  495.                       InitTimes,
  496.                       AnswerWait:    Word;
  497.                       ModemInitStr,
  498.                       ModemBusyStr:  String[70];
  499.                       ModemInitResp,
  500.                       ModemBusyResp,
  501.                       Resp300,
  502.                       Resp1200,
  503.                       Resp2400:      String[40];
  504.  
  505.                       MenuPath,
  506.                       TextPath,
  507.                       NetPath:      String[66];
  508.  
  509.                       MinBaud,
  510.                       GraphicsBaud,
  511.                       XferBaud:      Integer;
  512.                       LowBaudStart,
  513.                       LowBaudEnd,
  514.                       DownloadStart,
  515.                       DownloadEnd,
  516.                       PagingStart,              {!! Not used anymore !!}
  517.                       PagingEnd:     String[5]; {!! Not used anymore !!}
  518.  
  519.                       MatrixZone,
  520.                       MatrixNet,
  521.                       MatrixNode:    Integer;
  522.                       OldAkaNet,
  523.                       OldAkaNode:    Array[1..5] of Integer; {not used}
  524.                       NetMailBoard:  Integer;
  525.  
  526.                       DefaultSec:                Integer;
  527.                       DefaultCredit:             Integer;
  528.                       DefaultFlags:              FlagType;
  529.  
  530.                       EditorCmdStr:    String[70];
  531.                       OriginLine:      String[60];
  532.                       SysopName:       MsgToIdxRecord;
  533.                       AutoLogonChar,
  534.                       FastLogon,
  535.                       ScreenBlanking,
  536.                       UseLastRead,
  537.                       MonoMode,
  538.                       DirectWrite,
  539.                       SnowCheck,
  540.                       NetEchoExit,
  541.                       OneWordNames,
  542.                       CheckMail,
  543.                       AskHomePhone,
  544.                       AskDataPhone,
  545.                       GraphicsAvail:   Boolean;
  546.                       InactiveTimeOut: Integer;
  547.                       LogonTime:       Integer;
  548.                       DefFgColor:      Integer;
  549.                       DefBgColor:      Integer;
  550.                       PasswordTries:   Integer;
  551.                       MaxPageTimes:    Integer;
  552.                       PageBellLen:     Integer;
  553.  
  554.                       Use_Xmodem:      Boolean;
  555.                       Use_Xmodem1k:    Boolean;
  556.                       Use_Ymodem:      Boolean;
  557.                       Use_YmodemG:     Boolean;
  558.                       Use_Sealink:     Boolean;
  559.                       Use_Zmodem:      Boolean;
  560.                       Inp_Fields:      Boolean;
  561.                       QuoteStr:        String[3];
  562.                       UploadCredit:    Integer;
  563.                       LoadingMessage:  String[70];
  564.                       SelectionPrompt: String[70];
  565.  
  566.                       VersionID:       Word;
  567.                       Resp4800,
  568.                       Resp9600:        String[40];
  569.  
  570.                       OldAkaZone:      Array[1..5] of Integer; {not used}
  571.  
  572.                       MatrixPoint:     Integer;
  573.                       OldAkaPoint:     Array[1..5] of Integer; {not used}
  574.  
  575.                       UseAka:          Array[1..200] of Byte;
  576.                       AskAge:          Boolean;         { Not used }
  577.                       SystemName:      String[40];
  578.                       RegKey:          Longint;
  579.  
  580.                       EntryfieldColor: Byte;
  581.                       MenuBorderColor: Byte;
  582.  
  583.                       SysOpSeclvl:     Integer;
  584.                       AllowDelMsgs:    Boolean;
  585.  
  586.                       EventRec:        Array[1..30] of EventRecord;
  587.                       UnusedBoards:    Array[1..200] of BoardRecord;
  588.                     End;
  589.  
  590.   GosubDataType = Array[1..20] of String[8];
  591.  
  592.   ExitRecord = Record                                 (* EXITINFO.BBS *)
  593.                  BaudRate:        Word;
  594.                  SysInfo:         SysInfoRecord;
  595.                  TimeLogInfo:     TimeLogRecord;
  596.                  UserInfo:        UserRecord;
  597.                  EventInfo:       EventRecord;
  598.                  NetMailEntered:  Boolean;
  599.                  EchoMailEntered: Boolean;
  600.                  LoginTime:       String[5];
  601.                  LoginDate:       String[8];
  602.                  TmLimit:         Integer;
  603.                  LoginSec:        LongInt;
  604.                  Credit:          LongInt;
  605.                  UserRecNum:      Integer;
  606.                  ReadThru:        Integer;
  607.                  PageTimes:       Integer;
  608.                  DownLimit:       Integer;
  609.                  WantChat:        Boolean;
  610.                  GosubLevel:      Byte;
  611.                  GosubData:       GosubDataType;
  612.                  Menu:            String[8];
  613.                End;
  614.  
  615.                ProtocolRecord = Record                (* SPROTO.BBS *)
  616.                  Name            : String[15];
  617.                  Key             : Char;
  618.                  LogFileType     : Byte; { 0=OTHER,1=ICOM,2=DSZ}
  619.                  ProtocolType    : Byte; { 0=other,1=opus,2=BIMODEM}
  620.                  MaxFiles,
  621.                  Effic,
  622.                  Attribute       : Byte;
  623.                  { Bit 0: Actived
  624.                    Bit 1: Batch
  625.                    Bit 2: FullDuplex (Check for uploads)
  626.                  }
  627.                  DnCmdString,
  628.                  UpCmdString     : String[127];
  629.                  LogFileName,
  630.                  CtlFileName     : String[66];
  631.                  UpLogKeyword,
  632.                  DnLogKeyword    : String[20];
  633.                  NameWordNr      : Byte;
  634.                  DnCtlString,
  635.                  UpCtlString     : String[60];
  636.                  ExtraSpace      : Array[1..64] of byte;
  637.                end;
  638.  
  639.                MsgBoardRecord = Record                (* BOARDS.BBS *)
  640.                                   Name:         String[30];
  641.                                   QwkName:      String[12];
  642.  
  643.                                   Typ:          Byte; { 0=Standard 1=Net 3=Echo }
  644.                                   Kinds:        Byte; { 0=Private & Public
  645.                                                         1=Private 2=Public 3=Read-Only}
  646.                                   Aliases:      Byte; {0=no aliases,1=yes,2=ask alias,
  647.                                                        3=Alias/name}
  648.  
  649.                                   ReadSecLvl:   Integer;
  650.                                   ReadFlags:    FlagType;
  651.  
  652.                                   WriteSecLvl:  Integer;
  653.                                   WriteFlags:   FlagType;
  654.  
  655.                                   SysopSecLvl:  Integer;
  656.                                   SysopFlags:   FlagType;
  657.  
  658.                                   Group:        Char;
  659.                                   Replystatus:  byte; {0 = normal, 1 = net/normal
  660.                                                        2 = net only, 3 = no replies}
  661.                                   Age:          Byte;
  662.                                   Attrib:       Word;
  663.                                 End;
  664.  
  665.                (*
  666.                   Attributes :
  667.  
  668.                   bit 0 : Combined
  669.                   bit 1 : Default combined
  670.                   bit 2 : Allow message deleting
  671.                   bit 3 : Allow taglines
  672.                   bit 4 : Use in template system
  673.                   bit 5 : Convert 8bit -> 7bit
  674.                   bit 6 : forced ON in the mail check
  675.                *)
  676.  
  677.   LanguageRecord = Record
  678.       VersionNr:                Word;
  679.       Description:              String[227]; (* ie. SF - Suomi Finland *)
  680.       InputFieldDateFormat:     String[8];
  681.       DateFormat:               String[9];
  682.       TimeFormat:               String[8];
  683.       AnsiFilesPath:            String[79];
  684.       MenuFilesPath:            String[79];
  685.  
  686.       (*    Logon strings    *)
  687.  
  688.       AskAnsiLogon:             String[50];
  689.       AskNameStr:               String[40];
  690.       NameEnteredStr:           String[40];
  691.       AskCorrectStr:            String[60];
  692.       AskAliasStr:              String[40];
  693.       AskUseAliasStr:           String[60];
  694.       AskCityStr:               String[50];
  695.       AskSexStr:                String[60];
  696.       MaleChar,
  697.       FemaleChar:               Char;
  698.       AskAnsiGraphicsStr,
  699.       AskMailCheckStr,
  700.       AskNewFileCheckStr,
  701.       AskEditorStr,
  702.       AskScreenLenStr,
  703.       AskBirthDayStr,
  704.       AskPagePausingStr,
  705.       AskScreenClearStr,
  706.       AskHomePhoneStr,
  707.       AskDataPhoneStr,
  708.       AskNewPswdStr,
  709.       AskCheckPswdStr,
  710.       AskIfCorrectStr,
  711.       AskPasswordAtlogon,
  712.       MailCheckStr,
  713.       MailCheckSorryStr,
  714.       AskReadMessagesStr:       String[60];
  715.       AskPswdFailureMsgStr:     String[60];
  716.       AskFullScrReaderStr:      String[60];
  717.       ExtraSpace1:              Array[1..183] of byte;
  718.  
  719.       (*    Messagebase strings     *)
  720.  
  721.       BoardInfoStr1,
  722.       BoardInfoStr2,
  723.       AskStartNumberStr,
  724.       AskPauseAfterEachStr,
  725.       AskAreYouSureStr,
  726.       EndofrepliesStr,
  727.       EndOfMessagesStr,
  728.       AskPrivateMsgStr,
  729.       AskUseAliasInMsgs,
  730.       MessageAbortedStr,
  731.       AskJumpNumberStr,
  732.       InvalidMsgNumberStr,
  733.       ChooseMsgAreaStr,
  734.       MessageToAllStr:          String[60];
  735.       AskWhoToStr:              String[40];
  736.       AskSubjectStr:            String[9];
  737.       AskAliasInmsgs:           String[40];
  738.       NameNotFoundStr:          String[60];
  739.       NoWriteSecurityStr:       String[60];
  740.       ShowNewAreasStr:          String[60];
  741.       NoNewMessagesStr:         String[60];
  742.       AskHowManyLatestStr:      String[60];
  743.       ShowNewMsgsNewStr:        String[20];
  744.       ShowNewMsgsToYouStr:      String[20];
  745.       Received1Str,
  746.       Received2Str,
  747.       KillSentStr,
  748.       MsgPrivateStr,
  749.       MsgPublicStr,
  750.       FilesAttachedStr,
  751.       SentOKStr,
  752.       CrashMailStr,
  753.       ToFieldStr,
  754.       FromFieldStr,
  755.       SubjFieldStr,
  756.       DateFieldStr:             String[20];
  757.       ExtraSpace2:              Array[1..11] of byte;
  758.  
  759.       (*    Filearea strings    *)
  760.  
  761.       AskFileMaskStr,
  762.       AskBatchFilenamesStr,
  763.       AskFilenameStr:           String[60];
  764.       AskKeySearchStr:          String[40];
  765.       AskFnameSearchStr,
  766.       AskNewFileSearchStr,
  767.       AskNewFSearchDateStr,
  768.       ChooseFileAreaStr,
  769.       AskFilesToPackStr,
  770.       FileNotFoundStr,
  771.       AskFilesToDelStr:         String[60];
  772.       AskFilesToUpldStr:        String[60];
  773.       TransferInfoStr1:         String[80];
  774.       TransferInfoStr2:         String[70];
  775.       PleaseDescribeStr1:       String[30];
  776.  
  777.       (*   Other Strings    *)
  778.  
  779.       MonthStr:                 Array [1..12] of String[10];
  780.       ShortWeekDay:             Array [0..6] of String[10];
  781.       LongWeekDay:              Array [0..6] of String[20];
  782.       PressEnterStr,
  783.       PressSorPStr,
  784.       PleaseWaitStr:            String[60];
  785.       YesOrNoStr:               String[6];
  786.       YesChar,
  787.       NoChar:                   Char;
  788.       ReasonForChatStr:         String[17];
  789.       ChatStartStr1,
  790.       ChatStartStr2,
  791.       ChatEndStr,
  792.       DosShellStr1,
  793.       DosShellStr2,
  794.       UpdateStr1,
  795.       UpdateStr2,
  796.       FullPhoneNrMsg,
  797.       PswdNotChangedMsg,
  798.       AskCurrentPswdStr:        String[60];
  799.       CurrentAliasStr:          String[40];
  800.       CombinedStr1,
  801.       CombinedStr2:             String[60];
  802.       AskUserSearchStr,
  803.       AskAliasSearchStr:        String[60];
  804.       MoreStr:                  String[40];
  805.       MoreYesChar,
  806.       MoreNoChar:               Char;
  807.       InactivityStr,
  808.       InactivityWarningStr,
  809.       TimeLeftWarningStr,
  810.       TimeLimitExceededStr,
  811.       AliasInUseStr,
  812.       InvalidScrLenStr,
  813.       ShortPswdStr,
  814.       PswdCheckFailedStr,
  815.       PswdChangedStr,
  816.       WrongStr:                 String[60];
  817.       YesStr,
  818.       NoStr:                    String[10];
  819.       AskEnterMsgToSysOpStr:    String[60];
  820.       NoDwnldsFromAreaStr,
  821.       NoUpldsToAreaStr:         String[60];
  822.       AskLineNumberStr:         String[60];
  823.       FullScrChatHelpStr:       String[80];
  824.       PleaseDescribeStr2:       String[30];
  825.       PleaseDescribeStr3:       String[70];
  826.       PleaseDescribeStr4:       String[60];
  827.       DescTooShortStr:          String[60];
  828.       FileExistsStr:            String[60];
  829.       FileContainsVirusStr:     String[60];
  830.       FileNotReceivedStr:       String[60];
  831.       MinutesInBankStr,
  832.       TimeLeftStr:              String[60];
  833.       DepositAskStr:            String[60];
  834.       WithDrawAskStr:           String[60];
  835.       YouCanDepositStr:         String[60];
  836.       FileNotWantedStr:         String[60];
  837.       FilesRcvdStr:             String[60];
  838.       FilesSentStr:             String[60];
  839.       NoFilesFoundStr:          String[60];
  840.       NotEnoughTimeStr:         String[60];
  841.       AskPwdForFileStr1:        String[70];
  842.       AskPwdForFileStr2:        String[70];
  843.       AskMsgAfterPageStr:       String[60];
  844.       CommentToNextUserStr:     String[60];
  845.       AskSaveCommentStr:        String[60];
  846.       SelectFileAreaStr1:       String[60];
  847.       SelectFileAreaStr2:       String[60];
  848.       AskVirusChkFileStr:       String[60];
  849.       OnStr,
  850.       OffStr:                   String[20];
  851.       ScreenClearStr,
  852.       MoreStatStr,
  853.       AnsiStr,
  854.       AnsiEditorStr,
  855.       MailCheckStatStr,
  856.       NewFilesCheckStatStr,
  857.       DisturbmodeStr,
  858.       FullScrViewerStr:         String[60];
  859.       AvailableStr,
  860.       UnavailableStr:           String[20];
  861.       CurrentTimeStr,
  862.       CurrentDateStr,
  863.       ConnectTimeStr,
  864.       TimeUsedStr,
  865.       TimeRemainingStr,
  866.       CallLimitStr:             String[45];
  867.       AliasListTopStr:          String[78];
  868.       MsgReaderHeaderStr:       String[60];
  869.       FilesFieldStr:            String[20];
  870.       MsgNextReplyStr,
  871.       MsgPrevReplyStr,
  872.       MsgQuitRepliesStr,
  873.       MsgAgainStr,
  874.       MsgNextStr,
  875.       MsgBackStr,
  876.       MsgJumpStr,
  877.       MsgReplyStr,
  878.       MsgWriteStr,
  879.       MsgDeleteStr,
  880.       MsgKeepStr,
  881.       MsgCopyStr,
  882.       MsgXportStr,
  883.       MsgEditStr,
  884.       MsgTogglePrivateStr,
  885.       MsgUpdateUserStr,
  886.       MsgStopStr:               String[25];
  887.       UsageGraphInfoStr:        String[60];
  888.       BBSListNameStr,
  889.       BBSListPhoneStr,
  890.       BBSListMaxBPSStr,
  891.       BBSListOpenTimesStr,
  892.       BBSListSoftwareStr,
  893.       BBSListNetaddrStr,
  894.       BBSListSysopStr,
  895.       BBSListOtherStr:          String[15];
  896.       AskBBSToDeleteStr:        String[35];
  897.       FileOfflineStr:           String[18];
  898.       Status0Str,
  899.       Status1Str,
  900.       Status2Str,
  901.       Status3Str,
  902.       Status4Str,
  903.       Status5Str,
  904.       Status6Str,
  905.       Status7Str:               String[36];
  906. {             0 : 'Doing nothing special'
  907.               1 : 'Downloading file(s)'
  908.               2 : 'Uploading file(s'
  909.               3 : 'Reading messages'
  910.               4 : 'Writing message'
  911.               5 : 'Chatting with SysOp'
  912.               6 : 'Using external program'
  913.               7 : 'Logging on'
  914. }
  915.       TimeinBankStr:            String[45];
  916.       OptionNotAvailableStr,
  917.       ChooseDoorStr,
  918.       TooYoungStr,
  919.       QwkRepNotFound,
  920.       QwkAskQwkFormat,
  921.       QwkLimitReached,
  922.       QwkMessagesExported,
  923.       QwkPackingMessages,
  924.       QwkNoNewMessages,
  925.       QwkMessageMoved,
  926.       QwkDoYouWantToUpld,
  927.       QwkMaxNrToPackQ,
  928.       ScanningForDupePhoneStr:  String[60];
  929.       CallOrEventStr,
  930.       downstr:                  String[36];
  931.       NoReadAccess,
  932.       NoNewMessagesinArea,
  933.       JumpingToArea:            String[60];
  934.       MsgJumpToNextArea:        String[25];
  935.       QWKUpdPointers:           String[60];
  936.       QwkChoosePacker:          String[60];
  937.       Status8Str:               String[36];
  938. {             8 : 'Using QWK system' }
  939.       ChooseMsgAreaStr2:        String[60];
  940.       AgeGraphTopStr:           String[60];
  941.       QwkPackerSelected:        String[60];
  942.       MoreContinuousChar:       Char;
  943.       NoRepliesToAreaStr:       String[60];
  944.       MoreStr2:                 String[60];
  945.       MoreFlagChar:             Char;
  946.       FilesTaggedStr:           String[60];
  947.       TagDlLimitExceededStr:    String[60];
  948.       WildCardsNotValidStr:     String[60];
  949.       AskFileToFlagStr:         String[60];
  950.       AskCombinedMailCheckStr:  String[60];
  951.       CombMailCheckStatusStr:   String[60];
  952.       HotKeysStatusStr:         String[60];
  953.       AskHotKeysStr:            String[60];
  954.       DownloadFlaggedStr:       String[60];
  955.       RemoveFlaggedStr:         String[60];
  956.       MoreViewArchiveChar:      Char;
  957.       Status9Str:               String[36];
  958.       Status10Str:              String[36];
  959. {             9 : 'Browsing filelist'
  960.              10 : 'In nodehcat'       }
  961.       readcommentStr:           String[60];
  962.       CommentLeftStr:           String[60];
  963.       LeaveCommentQues:         String[60];
  964.       RemoveCommentQues:        String[60];
  965.       CommentRemovedStr:        String[60];
  966.     End;
  967.  
  968.  
  969.